home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / game / misc / CCGames.lha / HILO.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  31 lines
  1. 5 PRINT CHR$(26):WIDTH 80
  2. 10 PRINT TAB(34);"HI LO":PRINT
  3. 20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
  4. 30 PRINT:PRINT:PRINT
  5. 100 PRINT "THIS IS THE GAME OF HI LO.":PRINT
  6. 110 PRINT "YOU WILL HAVE 6 TRIES TO GUESS THE AMOUNT OF MONEY IN THE"
  7. 120 PRINT "HI LO JACKPOT, WHICH IS BETWEEN 1 AND 100 DOLLARS.  IF YOU"
  8. 130 PRINT "GUESS THE AMOUNT, YOU WIN ALL THE MONEY IN THE JACKPOT!"
  9. 140 PRINT "THEN YOU GET ANOTHER CHANCE TO WIN MORE MONEY.  HOWEVER,"
  10. 150 PRINT "IF YOU DO NOT GUESS THE AMOUNT, THE GAME ENDS.":PRINT
  11. 160 R=0
  12. 170 B=0:PRINT
  13. 180 Y=INT(100*RND(1))
  14. 200 PRINT "YOUR GUESS";
  15. 210 INPUT A
  16. 220 B=B+1
  17. 230 IF A=Y THEN 300
  18. 240 IF A>Y THEN 270
  19. 250 PRINT "YOUR GUESS IS TOO LOW.":GOTO 280
  20. 270 PRINT "YOUR GUESS IS TOO HIGH."
  21. 280 PRINT:IF B<6 THEN 200
  22. 290 PRINT "YOU BLEW IT...TOO BAD...THE NUMBER WAS";Y;CHR$(8);"."
  23. 295 R=0:GOTO 350
  24. 300 PRINT "GOT IT!!!!!!!!!!   YOU WIN";Y;"DOLLARS."
  25. 310 R=R+Y
  26. 320 PRINT "YOUR TOTAL WINNINGS ARE NOW";R;"DOLLARS."
  27. 350 PRINT:PRINT "PLAY AGAIN (YES OR NO)";
  28. 360 INPUT A$:IF LEFT$(A$,1)="Y" THEN 170
  29. 380 PRINT:PRINT "SO LONG.  HOPE YOU ENJOYED YOURSELF!!!"
  30. 390 RUN "MENU"
  31.